home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / text / misc / pcal_4_5.lha / pcal / SetUp.com < prev    next >
Text File  |  1994-10-16  |  668b  |  25 lines
  1. $ Write Sys$Output "SETting UP Pcal (v4.5)..."
  2. $ THIS_PATH = F$Element (0, "]", F$Environment ("PROCEDURE")) + "]"
  3. $ Define Pcal_Dir 'THIS_PATH'
  4. $ PCAL :== $ PCAL_Dir:PCAL.EXE
  5. $!
  6. $!  Put the help library into the next available help library slot
  7. $!
  8. $ LIB = "Hlp$Library"
  9. $ X = F$Trnlnm (LIB, "Lnm$Process")
  10. $ If X .eqs. "" Then GoTo INSERT
  11. $ If X .eqs. "''THIS_PATH'PCAL.HLB" Then GoTo EXIT
  12. $ BASE = LIB + "_"
  13. $ N = 1
  14. $NEXTLIB:
  15. $   LIB := 'BASE''N'
  16. $   X = F$Trnlnm (LIB, "Lnm$Process")
  17. $   If X .eqs. "" Then GoTo INSERT
  18. $   If X .eqs. "''THIS_PATH'PCAL.HLB" Then GoTo EXIT
  19. $   N = N + 1
  20. $   GoTo NEXTLIB
  21. $INSERT:
  22. $   Define 'LIB' 'THIS_PATH'PCAL.HLB
  23. $EXIT:
  24. $   Exit
  25.